home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Get_UK_Wea1776097312004.psc / UK Weather / Globals.bas next >
BASIC Source File  |  2004-08-01  |  1KB  |  27 lines
  1. Attribute VB_Name = "Module1"
  2. Global SelAcc As String, textline(10000), lastline, Days(5), inf1(5), inf2(5), inf3(5), inf4(5), inf5(5), inf6(5), inf7(5), inf8(5), inf9, inf10, inf11, inf12, inf13, inf14, Area(1000), Code(1000), Location(1000), PartCount(1000), Country(1000), State(1000), LstStationCnt, CurrentArea, AreaSelect
  3. Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  4. Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
  5.  
  6. ' // Returns true if connected to the internet.
  7. Public Function CheckConnection() As Boolean
  8. Dim result As Boolean
  9.     result = InternetGetConnectedState(0&, 0&)  ' Simply test for an internet socket.
  10.     If result = False Then
  11.         CheckConnection = False
  12.     Else
  13.         CheckConnection = True
  14.     End If
  15. End Function
  16.  
  17. Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  18.     Dim lngRetVal As Long
  19.     lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  20.     If lngRetVal = 0 Then DownloadFile = True
  21. End Function
  22. Public Function FileExists(filespec)
  23. Set fso = CreateObject("Scripting.FileSystemObject")
  24.   If (fso.FileExists(filespec)) Then FileExists = True Else FileExists = False
  25. End Function
  26.  
  27.